home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Encarta World Atlas 1999 / Encarta World 99 Install Disk.iso / support / DirHTML / diagnose.dcr / 00029_MOVIE.ls < prev    next >
Encoding:
Text File  |  1998-09-01  |  1.3 KB  |  74 lines
  1. global version, giEventCount
  2.  
  3. on startMovie
  4.   set giEventCount to 0
  5.   startOver()
  6. end
  7.  
  8. on startOver
  9.   set lsDisplayText to "version " & version
  10.   if version contains "net" then
  11.     repeat with x = 1 to 4
  12.       delete char -30000 of lsDisplayText
  13.     end repeat
  14.     put "Shockwave " before lsDisplayText
  15.   else
  16.     put "Director " before lsDisplayText
  17.   end if
  18.   displayText("You are running " & lsDisplayText)
  19.   puppetSound(0)
  20.   go(1)
  21. end
  22.  
  23. on stopMovie
  24.   resetFields()
  25.   puppetSound(0)
  26. end
  27.  
  28. on resetFields
  29.   if the shiftDown then
  30.     exit
  31.   end if
  32.   repeat with x in ["output", "display"]
  33.     set the text of member x to " "
  34.   end repeat
  35. end
  36.  
  37. on testFrameEvent
  38.   go("frameEvent")
  39. end
  40.  
  41. on testMouseEvent
  42.   debugOutput("mouse event")
  43. end
  44.  
  45. on testSWA
  46.   go("playSWA")
  47.   debugOutput("playing SWA")
  48. end
  49.  
  50. on debugOutput someString
  51.   set giEventCount to giEventCount + 1
  52.   set lsPrefix to giEventCount & ". " & someString
  53.   put lsPrefix & " [generated]" & RETURN before field "output"
  54.   externalEvent(lsPrefix & " [received]")
  55. end
  56.  
  57. on generateFrameEvent
  58.   debugOutput("frame event")
  59. end
  60.  
  61. on evalScript someString
  62.   debugOutput("evalScript: " & someString)
  63.   do(someString)
  64. end
  65.  
  66. on diagnose
  67.   puppetSound(0)
  68.   go("diagnose")
  69. end
  70.  
  71. on displayText someString
  72.   set the text of member "display" to string(someString)
  73. end
  74.